epnul

/startnup where{begin startnup end}if

gsave 1 setgray newpath 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath eofill grestore

exec

/image load

systemdict/image get

{currentfile qxpstr readhexstring pop/qxpi 0 def{255 exch sub qxpstr qxpi
 3 -1 roll put/qxpi qxpi 1 add def}forall qxpstr}

{currentfile qxpstr readhexstring pop}

{currentfile qxpstr readstring pop}

string/qxpstr exch def 8[3 index 0 0 5 index neg 0 7 index]

2 dict begin

/demohel exch definefont[120 0 0 -120 0 0]makefont setfont

/StrokeWidth 8 def currentdict end

/PaintType 2 def

{1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall

/Helvetica findfont dup maxlength 1 add dict begin

***

/Symbol FF def

exch known {exch}if pop findfont}B

/FF{dup 256 string cvs (|______) exch MN cvn dup FontDirectory

Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}B

/MN{1 index length /Len exch def dup length Len add string dup